home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Magazin/MacEasy 25
/
Mac Magazin and MacEasy Magazine CD - Issue 25.iso
/
Grafik & Text
/
Alpha
/
Tcl
/
ElectricAlias
/
Aliases
/
aliases.Tcl
< prev
next >
Wrap
Text File
|
1994-06-18
|
2KB
|
46 lines
# FILE: aliases.Tcl
#
# LAST UPDATE: 01/08/93 8:00:35 AM
#
# Aliases for TCL mode
electricAlias-def •Tcl •Tcl •Tcl
electricAlias-var Tcl bb "\{"
electricAlias-var Tcl eb "\}"
electricAlias-var Tcl bc "#"
electricAlias-var Tcl ec ""
electricAlias-var Tcl sep "#############################################################################\r"
electricAlias-def Tcl § "§\{•\}"
electricAlias-def •Tcl proc "§«askalias {procedure name} NAME»proc §{NAME} \{•\} \{\r\t•\r\}\r§{bc}endproc §{NAME}§{ec}\r§{bc}§{sep}§{ec}\r•"
electricAlias-def •Tcl foreach "foreach \{•\} \{•\} \{\r\t•\r\}\r§{bc}endforeach•"
electricAlias-def •Tcl for "for \{•\} \{•\} \{•\} \{\r\t•\r\}\r§{bc}endfor•"
electricAlias-def •Tcl while "while \{•\} \{\r\t•\r\}\r§{bc}endwhile•"
electricAlias-def •Tcl if "if \{•\} \{\r\t•\r\}•"
electricAlias-def •Tcl else "\b\} else \{\r•"
electricAlias-def •Tcl elseif "\b\} else \{ if \{•\} \{\r•\r\b\}"
electricAlias-def •Tcl case "case \{•\} \{\r •\r\}\r§{bc}endcase•"
electricAlias-def •Tcl "{" "\{•\} \{\r\t•\r\}\r§{bc}endcase •\r•"
electricAlias-def •Tcl default "default \{\r\t•\r\}•"
# Following are for lazy/forgetful programmer's
electricAlias-def •Tcl switch "case \{•\} \{\r\t•\r\}•"
electricAlias-def Tcl ea "electricAlias"
electricAlias-def Tcl sprintf "format"
electricAlias-def Tcl \$` "§ \b«•»•"
electricAlias-def Tcl \${ "§ \b{•}•"
electricAlias-def Tcl \$? "§ \b«askalias •PROMPT VARNAME»•"
electricAlias-def Tcl "=" "=="
electricAlias-def Tcl backwordWord backwardWord
electricAlias-def "•" "•file" {# FILE: §{file}
#
# LAST UPDATE: §«mtime [now] short»
#}
electricAlias-def "•" "•procs" {# This file contains the following TCL procedure(s):
#
# §«askalias "TCL Proc" proc»§{proc} --
}